perm filename XC.F4[NEW,LCS] blob sn#502585 filedate 1980-03-29 generic text, type T, neo UTF8
00100		DIMENSION I(72),V(50)
00200		CALL IFILE(1,'WW')
00300		READ(1,1)I
00400	1	FORMAT(72A1)
00500	2	FORMAT(1X72A1)
00600		TYPE 2,I
00700	C	REREAD 3,V
00750		CALL RREAD(I,V)
00800	3	FORMAT(50F)
00900		TYPE 3,V
01000		END
01100	
01200		SUBROUTINE LO2UP(N)
01300		END